Attribute VB_Name = "Module1"
'Variable para mantener la conexion en todos los formularios
Public con As ADODB.Connection

Public Function Ejecuta(query As String) As Boolean

    Dim resultado As Boolean
    
    On Error Resume Next
        con.Execute query
    If con.Errors.Count <> 0 Then
        MsgBox ("Error en Datos:" & vbCrLf & con.Errors.Item(0))
        resultado = False
    Else
        resultado = True
    End If
    
    Ejecuta = resultado

End Function
